object reg_addform: Treg_addform Left = 228 Top = 122 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Milo - dodawanie regu'#322'y wiadomo'#347'ci' ClientHeight = 473 ClientWidth = 481 Color = clBtnFace Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object reg_add: TButton Left = 8 Top = 440 Width = 65 Height = 25 Caption = '&Dodaj' TabOrder = 1 OnClick = reg_addClick end object reg_clean: TButton Left = 80 Top = 440 Width = 65 Height = 25 Caption = '&Wyczy'#347#263 TabOrder = 2 OnClick = reg_cleanClick end object reg_cancel: TButton Left = 408 Top = 440 Width = 65 Height = 25 Caption = '&Anuluj' TabOrder = 3 OnClick = reg_cancelClick end object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 465 Height = 425 Caption = 'Dodaj / edytuj regu'#322#281' wiadomo'#347'ci' TabOrder = 0 object Label1: TLabel Left = 8 Top = 20 Width = 127 Height = 13 Caption = 'Nazwa regu'#322'y wiadomo'#347'ci:' end object Label12: TLabel Left = 304 Top = 20 Width = 86 Height = 13 Caption = 'Ilo'#347#263' zastosowa'#324':' end object reg_nazwa: TEdit Left = 8 Top = 36 Width = 249 Height = 21 MaxLength = 256 TabOrder = 0 end object reg_stat: TEdit Left = 304 Top = 36 Width = 153 Height = 21 Enabled = False TabOrder = 1 Text = '0' end object GroupBox2: TGroupBox Left = 8 Top = 72 Width = 449 Height = 89 Caption = 'Warunek zastosowania regu'#322'y wiadomo'#347'ci' TabOrder = 2 object Label9: TLabel Left = 8 Top = 28 Width = 51 Height = 13 Caption = 'Nag'#322#243'wek:' end object Label10: TLabel Left = 8 Top = 60 Width = 30 Height = 13 Caption = 'Tre'#347#263':' end object reg_typ: TComboBox Left = 72 Top = 24 Width = 177 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 1 TabOrder = 0 Text = 'nadawca' OnChange = reg_typChange Items.Strings = ( 'nazwa' 'nadawca' 'odbiorca' 'temat' 'zawarto'#347#263' wiadomo'#347'ci' 'rozmiar' 'priorytet' 'kodowanie' 'nazwa programu pocztowego' 'wersja MIME') end object reg_sub: TComboBox Left = 256 Top = 24 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 1 Text = 'zawiera tre'#347#263 Items.Strings = ( 'zawiera tre'#347#263 'nie zawiera tre'#347'ci' 'odpowiada dok'#322'adnie tre'#347'ci' 'nie odpowiada dok'#322'adnie tre'#347'ci') end object reg_str: TComboBox Left = 72 Top = 56 Width = 369 Height = 21 ItemHeight = 13 MaxLength = 256 TabOrder = 2 end end object GroupBox3: TGroupBox Left = 8 Top = 168 Width = 449 Height = 225 Caption = 'Akcje' TabOrder = 3 object Label11: TLabel Left = 8 Top = 20 Width = 393 Height = 13 Caption = 'Wybierz czynno'#347'ci, jakie maj'#261' zosta'#263' wykonane po spe'#322'nieniu waru' + 'nku tej regu'#322'y:' end object lab_sendto: TLabel Left = 8 Top = 108 Width = 355 Height = 13 Caption = 'Adres e-mail skrzynki pocztowej na kt'#243'r'#261' ma zosta'#263' przes'#322'ana wia' + 'domo'#347#263':' Enabled = False end object lab_restr: TLabel Left = 8 Top = 156 Width = 108 Height = 13 Caption = 'Tre'#347#263' listu odpowiedzi:' Enabled = False end object reg_act: TCheckListBox Left = 8 Top = 36 Width = 433 Height = 61 OnClickCheck = reg_actClickCheck ItemHeight = 13 Items.Strings = ( 'archiwizuj wiadomo'#347#263 'prze'#347'lij dalej wiadomo'#347#263 'odpowiedz nadawcy wiadomo'#347'ci' 'usu'#324' wiadomo'#347#263) TabOrder = 0 OnClick = reg_actClick end object reg_sendto: TEdit Left = 8 Top = 124 Width = 433 Height = 21 Enabled = False MaxLength = 256 TabOrder = 1 end object reg_restr: TMemo Left = 8 Top = 172 Width = 433 Height = 45 Enabled = False MaxLength = 10000 ScrollBars = ssVertical TabOrder = 2 end end object reg_nofri: TCheckBox Left = 8 Top = 400 Width = 441 Height = 17 Caption = 'Nie uwzgl'#281'dniaj adres'#243'w e-mail z listy przyjaci'#243#322' dla tej regu'#322'y' + ' wiadomo'#347'ci (nie zalecane)' TabOrder = 4 end end end